home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 December / CHIP Aralık 1996.iso / prog / backpack / demodata / misc / start.dxr / 00003_Init new player.ls < prev    next >
Encoding:
Text File  |  1995-08-30  |  1.2 KB  |  47 lines
  1. on enterFrame
  2.   global SNAME, UNAME, TWNS, JOBS, ACTION, DEST_LQDS, KAT_LQDS, RANS, WANS, DTQR, DTQW, KARM, HOTL, SEX, CASH, YY, MM, DD, DAYS, DEPDD, AFDD, TRAVEL, PHONE_M, AUKT_JOBS
  3.   set SNAME to "Surname"
  4.   set UNAME to "Given name"
  5.   set SEX to 0
  6.   set CASH to 5000
  7.   set TWNS to list()
  8.   set ACTION to list()
  9.   set DEST_LQDS to list(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
  10.   set KAT_LQDS to list(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
  11.   set JOBS to list()
  12.   set AUKT_JOBS to list()
  13.   set HOTL to 0
  14.   if the machineType < 256 then
  15.     openXLib("BPXlib.MAC")
  16.     set xTemp to xTime(mnew)
  17.     set YY to xTemp(mGetYear)
  18.     set MM to xTemp(mGetMonth)
  19.     set DD to xTemp(mGetDay)
  20.     xTemp(mdispose)
  21.     closeXLib("BPXlib.MAC")
  22.   else
  23.     if the machineType = 256 then
  24.       set K to the date
  25.       set YY to value(char 1 to 4 of K)
  26.       set MM to value(char 6 to 7 of K)
  27.       set DD to value(char 9 to length(K) of K)
  28.     end if
  29.   end if
  30.   set DTQR to 0
  31.   set DTQW to 0
  32.   set LQNO to 0
  33.   set RANS to 0
  34.   set WANS to 0
  35.   set KARM to 0
  36.   set DAYS to 1
  37.   set DEPDD to 0
  38.   set AFDD to 0
  39.   set TRAVEL to 0
  40.   set PHONE_M to 2000 + random(2000)
  41. end
  42.  
  43. on exitFrame
  44.   preLoad(the frame, label("PP_Write"))
  45.   puppetSound(0)
  46. end
  47.